home *** CD-ROM | disk | FTP | other *** search
/ Aminet 3 / Aminet 3 - July 1994.iso / Aminet / util / misc / login.lha / Prj < prev   
Encoding:
AmigaDOS Script File  |  1993-12-13  |  737 b   |  33 lines

  1. .KEY PROJECT/A
  2.  
  3. ;    Set the default project name.
  4. ;    Results in auto-selection of this package at re-login
  5. ;    Argument is a pathname relative to $WORK
  6.  
  7. FailAt 15
  8. CD $WORK
  9. If Not Exists <PROJECT>
  10.    Ask "Not existing project <PROJECT>. Shall I create it? [N]"
  11.    If WARN
  12.       Echo "Attempting to create <PROJECT> in $WORK"
  13.       MakeDir <PROJECT>
  14.       If Error
  15.          Echo "Sorry --- Failed. Task too complex?"
  16.          Skip Exit
  17.       EndIf
  18.    Else
  19.       Echo "Exiting Prj without any work done"
  20.       Skip Exit
  21.    EndIf
  22. EndIf
  23. CD <PROJECT>
  24. CD >env:TEMPORARYFORPRJ
  25. Echo >ENVARC:PROJECT_$PACKAGE "SET WF=$TEMPORARYFORPRJ"
  26. If Exists .login
  27.    Execute .login
  28. EndIf
  29. Echo "Default project <PROJECT> set for package " NOLINE
  30. Get PACKAGE
  31.  
  32. Lab Exit
  33.